﻿Module LibFunction

  'библиотека глобальных функций и процедур / типов данных

  'структура данных для Комбобокса
  Public Structure ComboType

    Dim ID_Item As Object
    Dim Name_Item As String

    Public Sub New(ByVal _ID_Item As Object, ByVal _Name_Item As String)
      ID_Item = _ID_Item
      Name_Item = _Name_Item
    End Sub

    Public Overrides Function ToString() As String
      Return Me.Name_Item
    End Function

  End Structure



End Module
